home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / SendEmptyMsg.zprx < prev    next >
Text File  |  1995-05-12  |  694b  |  28 lines
  1. /*
  2.     $VER: SendEmptyMsg.zprx 1.0 (12.5.95) by Ralph Seichter.
  3.           ARexx script for Zodiac's Point.
  4.  
  5.     Sends a message with an empty body. Three parameters are required when
  6.     this skript is invoked: the name of ZP's ARexx port, receiver address
  7.     and the subject line. Here's a usage example:
  8.  
  9.       rx SendEmptyMsg.zprx ZPoint maps@darkness.gun.de "LIST MY BRETTER"
  10. */
  11.  
  12. parse arg zpoint receiver subject
  13. address value zpoint
  14. options results
  15.  
  16. whichlevel
  17. if result == 'BOARD' then do
  18.    file = 't:empty_msg.zprx'
  19.    address command 'echo "" >'file
  20.    writemessage file receiver subject
  21.    if result ~= '' then
  22.       exit 0
  23. end
  24. requestnotify "Can't send message!"
  25. exit 5
  26.  
  27. /* EOF */
  28.